00050	;FORTRAN CALLABLE RANDOM NUMBER GENERATOR
00060	;
00070	;USE    CALL RNDINT   TO INITIALIZE THE GENERATOR
00080	;                     (THE GENERATOR IS LOADED INITIALIZED)
00090	;USE    RAND(XL,XH)   AS A FUNCTION TO RETURN THE NEXT 
00092	;                     RANDOM NUMBER BETWEEN XL AND XH
00094	;                     (XL,XH ARE FLOATING POINT,RAND RETURNS
00096	;		      FLOATING POINT)
00098	;
00100		ENTRY RNDINT
00200	RNDINT:	0
00300		MOVE 0,[756132257563]
00400		MOVEM 0,R1
00500		ADDI 0,2
00600		MOVEM 0,R2
00700		JRA 16,0(16)
00800	R1:	756132257563
00900	R2:	756132257565
01000		ENTRY RAND
01100	RAND:	0
01200		MOVEM 1,TEMP
01300		MOVE 0,@0(16)
01400		MOVE 1,@1(16)
01500		FSBR 1,0
01600		MOVEM 0,LLIM#
01700		MOVE 0,R1
01800		ADD 0,R2
01900		EXCH 0,R2
02000		MOVEM 0,R1
02100		LSH 0,-11
02200		FSC 0,200
02300		FMP 0,1
02400		FAD 0,LLIM
02500		MOVE 1,TEMP
02600		JRA 16,2(16)
02700	TEMP:	0
02800		END